union_TF <- function(tf_temp = c()){
  output <- T
  for(i in tf_temp){
    output <- output & i
  }
  return(output)
}

except_TF <- function(tf_temp = c()){
  output <- F
  for(i in tf_temp){
    output <- output || i
  }
  return(output)
}

####Test Area####
# union_TF(c(T,F,T))
# union_TF(c(T,T,T))
# except_TF(c(F,T,F))
# except_TF(c(F,F,F))
